home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FST30A.ZIP;1 / PEOPLE.DEF < prev    next >
Encoding:
Modula Definition  |  1992-09-20  |  388 b   |  16 lines
  1. DEFINITION MODULE People;
  2.   TYPE Gender = (unknown,male,female);
  3.   CLASS Person;
  4.     name    :ARRAY [0..40] OF CHAR;
  5.     sex     :Gender;
  6.     PROCEDURE isMale() :BOOLEAN;
  7.   END Person;
  8.  
  9.   TYPE  LanguageName = ARRAY [0..10] OF CHAR;
  10.   CLASS Programmer;
  11.     INHERIT Person;
  12.     favoriteLanguage :LanguageName;
  13.     PROCEDURE isSmart() :BOOLEAN;
  14.   END Programmer;
  15. END People.
  16.